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ae 00: 78 e0 Year $2 See SORSORT.B32;1 oar (1) 
MODULE SORSSORT ( 
{DENT = 'v04-000' ! File: SORSCRIO.B832 Edit: PDG3025 
= 


BEGIN 
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AUTHOR: Peter D Gilbert, CREATION DATE: 07-Jan-1982 
MODIFIED BY: 
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T mth Original 
T03- 1g Added clean-up routines. PDG 4-Jan-1983 
17 Fix possible unlimited recursion in READ_INSERT. 
Identified the section of code relevant fo the merge problems 
° sequence gheck ng and record deletion. 
PDG 14-Jan-198 
Implement merge stuff mentioned in 103-017. PDG 26-Jan-1983 
pee GOA MERGE prather than COM_MRG_ORDER) to indicate a merge. | 
-Jan- 
Changes for hostile environment. PDG sof ebo 130° 
Add missin eos in TREE _C\'TPUT. PDG 8-Mar-19 
or (k | 


|B : 
¢ : 
5 5 : 
$ 8 ' © : 
8 8 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
9 00 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * : 
19 319 - ALL RIGHTS RESERVED. * : 

! * 3 
1 Big 'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
1 1 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
14 14 'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
15 0015 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
16 3918 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
i? 4d :* TRANSFERRED. * ; 

'e * 3 
19 $019 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
0 boss 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
1 4 1 . CORPORATION. * é 

' ® : 
$¢ 00 : 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
24 0024 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® : 
5 0025 '® * 3 
6 80 § 'e * $ 
00 8 Lee eRe A ARATE TEER AAAAAAAAA AAAS : 
9 0029 : 
0 BR 0 ++ 3 
1 0031 3 
¢ i FACILITY: VAX-11 SORT/MERGE : 
3 0034 ABSTRACT: : 
5 0035 ; 
Ha 0036 This module contains routines that control the sorting process, 3 
7 37 such as handling the internal sort tree, switching between runs, 3 
; 3 and the merge phase. : 
4 040 ENVIRONMENT: VAX/VMS user mode : 
4 F 
4 3 
4 3 
4 : 
6 3 
4 b 
4 : 
4 F 
; 
; - 
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; 65 ppee 1 LIBRARY \ SYSSLIBRARY : STARLET"; ; 
: 66 065 1 LIBRARY 'SYSSLIBRARY:XPORT'; | : 
; a4 By 6 ! REQUIRE 'SRC$:COM'; ‘ 
3 4 0 ? } IF XDECLARED(ZQUOTE SDESCRIPTOR) XZ THEN UNDECLARE ZQUOTE SDESCRIPTOR; %FI : 
hea 139 1 FORWARD ROUTINE : 
: ie 0140 1 SORSSTREE_INIT: CAL_CTXREG, ! Initialize the sort tree : 
3 £ pie) 1 SORSSTREE_INSERT: JSB_INSERT ! Insert a record into sort tree ‘ 
> 74 136 1 SORSSTREE-EXTRACT: JSB-EXTRACT, : Extract a record from the sort ‘ 
; 0145 1 TREE_OUTPOT: JSB-OUTPUT ! Output routine : 
; fr Bite 1 READ INSERT: JSB-READINS NOVALUE, : Read a record, insert on queue ; 
ae 145 (1 MERGE _PASSES: CAL_CTXREG NOVALUE, ! Perform the merge passes : 
; ae bie$ : CLEAN_UP: CAL_CTXREG NOVALUE; : 
; 8 0148 1 SORSSEND_ROUTINE_(CLEAN_UP); : 
; «8 0149 1 : 
~ 3 0150 1 LINKAGE : 
» &§ 0151 1 JSB_SCOPY_R_DX6= JSB (REGISTER MD -BEGISTERA) -REGISTERS2) 1 ; 
> 84 8126 1 NOPE SERVE (0,1 ee 4,5,6) ; 
; «85 0153 1 NOTUSED (7,8,9,10.11); ; 
; | 6G L 0154 1 XIF HOSTILE : 
3.6 CS? U 0155 1 THEN : 
; 8 uU 0156 1 MACRO : 
3; «6 u 0157 1 LIBSGET_VM = SORSLIBSGET_VM %; ‘ 
; 90 0158 1 &FI : 
; ww 0159 1 3 
; 92 0160 1 EXTERNAL ROUTINE : 
3; 6 693 0161 1 SORSSWORK_NEWRUN: JSB_NEWRUN NOVALUE, ! Indicate start of run : 
5; B1e¢ 1 SORSSWORK_MERGE : CAL_CTXREG, ! Decide runs to merge : 
5; 0165 1 SORSSWORK_WRITE: JSB_OUTPUT, ! Write to work file : 
; © 0164 1 SORSSWORK_READ: JSB_INPU ! Read from a run : 
Pa Oe 0165 1 SORSSALLOTATE: CAL-CTXREG, ' Allocate storage : 
; 0166 1 SORSSDEALLOCATE: CAL_CTXREG NOVALUE, ! Deallocate storage : 
. Oe 0167 1 ZIF NOT HOSTILE %THEN : 
: 100 0168 1 LIBSSCOPY_R_DX6: JSB_SCOPY_R_DX6 : 
: 4 Hh 4 : -_ ADDRESSING_MODE (GENERAL), ! Copy string : 
; 108 O17 1 LIBSGET_VM: ADDRESSING_MODE (GENERAL), : 
3 193 HEA: : SORSSERROR; ! Error routine : 
: 106 0174 1 MACRO ! Swap two variables ; 
4 44 pif? ! SWAP_(X,Y¥) = (LOCAL Z; Z=.K; K=.Y¥; Y=.2) %; : 
3; 109 b179 1 : 
; 110 0178 1 ASSERT_(TUN_K_CALC_FI LEQU 1) ! Must be 0 or 1, as these values ... : 
: Ng Sf : ASSERT_(TUN_K_CALC_FE LEQU 1) ! ... are used in calculations | ‘ 
; 11 181 1 ; 
; Ht sf ' , Macroes to define fields in the replacement selection tree. : 
: 116 184 1 LITERAL ; 
3; 117 185 1 ' : 
: 118 1 $ 1 ! Offset within node of where pointers to this node point : 
: 119 0187 1 i Having this the same as the offset to KEY is be worthwhile, so that the | ; 
> 120 0188 1 i address of the key portion is the ‘pointer’ to the node, thus making it | 3 
s tel 0189 1 ! easier to keep the address of the key in COM_REG_SRC2. ; 
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Pointer to “‘loser’’ stored in this int node 
LOSER= {1-K_ROOT, L_J, 
| Pointer to int node above this int node 


ZIF NOT TUN_K_CALC_FI_%THEN 
Fl= C2-R_RooT, =? ZF I 


Pointer to int node above this ext node 


F NOT TUN_K_CALC_FE %THEN 
= C3-R_ROOT-TUN_K_CALC_FI, L_J, %FI 


Key and record 
= (4-K_ROOT=TUN_K_CALC_FI-TUN_K_CALC_FE, A_J 


N 4 
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9 If so, RN and LOSER are negative offsets from the pointers. 

3 i This should be either 0, or 4-TUN_K_CALC_FI-TUN_K_CALC_FE, although the 

2 code will work for any value. 

3 me K_ROOT= 4=TUN_K_CALC_FI-TUN_K_CALC_FE; 

9 NODE _FIELDS = 

4 SET 

0 Run number of the record pointed to by LOSER 

9 RN= CO-k_ROOT, L_J, 

0 
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MACRO 
NODE _BLOCK= BLOCK FIELD(NODE_FIELDS) 2%; 


LITERAL 
Number of extra bytes in a node 
K_NODE= (4=TUN_K_CALC_F I-TUN_K_CALC_FE) *2UPVAL; 
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Define fields within COM_TREE_INSERT 
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SFIELD 
oF TEL SS = 
SOVERLAY (COM race Ansar) 
$_0= $BYTE ( J e 
$_RQ= XLONG), ' Saved value of RQ 
S_RMAX= [XLONG), ' Saved value of RMAX 
S_RC= XLONG), ' Saved value of RC 
S_X= XLONGJ, ' Saved value of X 
$_Q= XLONGJ, ' Saved value of Q 
S_DESC= LXLONGJ, ! Saved parameter for COM_OUTPUT 
S_LEN= [(XLONGJ, ' Saved parameter for COM_OUTPUT 
S_LAST= CXLONGJ, ! Pointer to the LASTKEY area 
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14-Sep-19 SORT32.SRCISORSORT.B32;1 
3 § 04 1 QUE_LRUN = 3, L. 2%; ! Pointer to the run description block 
: 5 1 LITERAL 
: 5 $ i QUE_K_SIZE= 4; ! Size in longwords 
: 240 4 1 ! The queue header for the queue is somewhat epec fat. Normally, its QUE_REC 
; 241 1 ! and QUE_RUN fields are zero. For sequence-checking (which is allowed only 
; 24 0310 1 ! for merges), the QUE_REC field contains the address of an internal format 
; 24 0311 1 =! record which has not yet been written, and QUE_PRESENT indicates that this 
3 sie O36 ' record has not been deleted. QUE_PRESENT overlays the QUE_RUN field. 
: 246 0314 1 MACRO 
: 47 0315 1 QUE_PRESENT = ZEXPAND QUE_RUN 2%; 


dD 5 
SORSSORT 16-Sep-1984 00:38:27 AX-11 Bliss-32 V4.0-742 Pa 7 
v04=000 1e8eb-1986 19:10:49 — ESORTS2°SRESSoRsORT B Soe) 9° (3) 
: GLOBAL ROUTINE SORSSTREE_INIT 
1 PAGES ! Pages available for the sort tree 
1 EXP_RECS ! Expected number of input records 


This routine initializes the internal replacement selection tree. 
FORMAL PARAMETERS: 


PAGES Number of pages available for the sort tree 
er necs Expected number of input records 
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0 
1 
0358 
0324 ! 
ged 
0 ‘ i 
Bi 
5 6 01! 
2 03 1 Longword pointing to work area (passed in COM_REG_CTX) 
3 03 § ! IMPLICIT INPUTS: 
3 83 2 | The memory for the sort tree has already been allocated. 
3 0337 1! IMPLICIT OUTPUTS: 
0338 ! 
2 0339 ! NONE 
2 0340 ‘ 
2 0341 ! ROUTINE VALUE: 
2 tak: } 
27 034 ! Status code. 
7 0344 ! 
7 0345 ! SIDE EFFECTS: 
7 tne) ' 
8 034 : NONE 
28 0348 ! 
4 ith NOTES: 
: baa. The following routines are accessed through the context area: 
0358 i CTXCCOM_COMPARE) ! Compare records 
0354 : (see SORSSKEY_SUB) 
Bee2 ! CTXCCOM_INPUT ! Convert and copy routine 
0 2 : (see SORSSKEY_SUB) 
8 5 : CTXCCOM_NEWRUN ! Indicate a new run 
58 : SORSSWORK_NEWRUN 
59 : nse ! Nothing special if fits in tree 
60 : CTXCCOM_OUTPUT) ' Qutput a record to a temp file 
61 ! SORSSWORK_WRITE ' Output to a work file 
TREE_OUTPOT ! Output to a descriptor 


BEGIN 
EXTERNAL REGISTER 
CTX = COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 


LITERAL 
$8 N_TREE = ° ! Nodes needed in the tree 
N_LASTKEY = . ! Another node to hold the Last ney output 
ROUND = ! Truncate number of nodes to a mult of N_ROUND 
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CAL_CTXREG = | 
1e+ 

! 

i FUNCTIONAL DESCRIPTION: 
i Minimum number of nodes needed from GET_VM | 


5 
sonssoat 1-00-1964 00:88:27 YAK-11 BL ing-32 v4_0-742, 
This 19, te guarentee that: 


-minp - nm lastkey) and not (n_round-1) >= n_tree 


K_MINP = ROUND_(N_TREE, N_ROUND) * N_LASTKEY; 
LOCAL 
° ' Number of nodes in the tree 
X: REF BLOCK, ! Pointer to root of the tree 
INTLEN, Length of internal node 


STATUS; ' Status 


' Calculate the Length of an internal node, Lega the LOSER pointer, 
the run number, et.al. Round up to align on an addressing boundary. 


INTLEN = ROUND_(.CTXCCOM_LRL_INT] + K_NODE, 1*TUN_K_ALIGN_NODE); 


OCD 00 C9 COCO O0 C9 O8 NI NII INN 
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3 


Determine the number of records to have in the tree, based on either: 
the expected number of records to be sorted plus, an extra K_MINP 


' 
! or 

the number of pages allowed for the sort tree. 
‘ 
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: 30 

; 

3 1 

3 1 

: 1 

: 1 

: 1 

$ 1 

: 1 

3 1 

3 1 

: : 

; 32 

s Se 

: 3 

; : = MINU( .EXP_RECS + K_MINP, 

: 3 COM_K_BPERPAGE * .PAGES / .INTLEN + TUN_K_MRGCOST ); 

: ; +4 IF .P LSS K_MINP THEN P = K_MINP; ! Get at least this many nodes 
: 334 0401 WHILE TRUE DO 

3 HH 0 8 BEGIN 

: 6 040 CTXCCOM_TREE_LEN] = ROUND _(.P®.INTLEN, 1*TUN_K Bete 
; 337 0404 STATUS = LIBSGET_vM( CTXCCOM_TREE_LENJ, CTXCCOM_TREE-ADR) J; 
; 44 Bene If we got the memory, exit the loop, so we don't retry. 

; 31 0408 IF .STATUS THEN EXITLOOP; 

: $g 0409 ! 

; az dt Complain, and then try asking for less memory. 

: rb B28 SORSSERROR(SOR$_SHR_SYSERROR AND NOT STSSM_SEVERITY OR STSSK_WARNING, 
: <3 0414 P= .pe7/ 8B; 

3 ra Bei? ro: LSS K_MINP THEN RETURN SORSSERROR(SORS$_SHR_INSVIRMEM) ; 
: 350 $619 X= -CTAECOM_ TREE _ADR : 

s 351 0418 P = .CTXCCOM_TREE_LEN) / .INTLEN; ! Divvy up the space 
. 

; 32 vi 1 Truncate P to an even number to speed up the initialization loop 
; 26 7 § P = .P AND NOT (N_ROUND-1); 

; 358 5 ! Initialize variables 

; 359 4 § : 

; 360 4 CTXCS_RMAX) = 0; 

: 361 4 3 CTXCS-RC) = g: 

; 362 CTxES"RQ) = 0; 
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| 
63 0 CTXES_LAST] = | ; 
64 431 CTX(S"X) = =X k “bor, A. ; 
o2 : § cTxCS~ a K-ROOT, “At : 
of ri ¢ eaten Sik eon = : 
9? o¢ 8 Compute constants for petit yore YCFI] and YCFE] with FI_ and FE_ macros | : 
71 L 8 8 RIF _TUN_K_CALC_FI OR TUN_K_CALC_FE $ 
7 439 X THEN ; 
7 0440 BEGIN $ 
74 44) BUILTIN $ 
75 rei FFS; ; 
76 44 LOCAL $ 
77 0444 B; 3 
78 0445 FFS(RREF (0) ZREF (XBPVA = txts 6 1fy"55- BITJ); ! INTLEN must be even! : 
79 0446 B= athe nt CTXCS x : 
80 0447 CTXC$ BIT) = CTXCS_BIT] = 1; ! Since we first divide by 2 ; 
81 L 0448 ZIF TON_K_CALC_FI ; 
38 0449 XTHEN 3 
38 0450 CTXCS_FIKI] = .CTXCS_XI/2 - .B*.INTLEN/2; 3 
$pe 0451 ZF I $ 
85 L beg Z1F TUN_K_CALC_FE $ 
386 045 XTHEN ! t be even! 3 
387 0494 am CTXCS_FEK] = (.P®. INTLEN+.CTXCS_XJ)/2 = A > SINTLEN/ 3: ; 
38s 0456 CTXCS_ADJJ = - .INTLEN/2 + .B*. INTLEN; é 
90 0457 2 END; 3 
$3) 0458 2 “FI 3 
9 0459 s 
9 0460 3 
94 0461 ' NODECJ,LOSER] = NODECJ) é 
95 046 ' NODECJ,RN) = 0 g 
96 046 ' NODE 4-fty = NODEC(P+J)/2] F 
97 0464 ' NODELJ,FIJ = NODEL(J/2)] 3 
98 0465 ! 3 
99 0466 BEGIN é 
00 0467 LOCAL ; 
401 0468 Y: REF NODE_BLOCK, : 
40 0469 gel ene 3 
40 0470 P2LEN; 3 
404 0471 Y = .CTXC§ x}; : 
405 047¢ POLEN = (.B/25*. INTLEN; ; 
rts oe J2LEN = 0; F 
40 47% DECR K FROM .P/2-1 TO 0 DO ! INCR J FROM 0 TO .P=1 ; 
408 0475 4 BEGIN 3 
409 6 4 YCRN) = 0; ' Set run number to zero 3 
410 477 & Y LOSER) = YEBAsE - Ff ! Set loser to point to self 3 
411 L 4 ZIF NOT TUN_K_C ALC_F 3 
tig U 0479 4 ZTHEN 3 
41 U 0480 4 YCFIJ = YCBASE_) + .J2LEN; : 
414 1 4 XFI ; 
415 L ; 4 XIF NOT TUN_K_CALC_FE | ; 
218 U 04 4 ZITHEN 3 
41? U 4 4 es YCFE) = YCBASE_) + .J2LEN + .P2LEN; | : 
419 4 4 Y = YCBASE_) + .INTLEN; ! Advance to next node | : 

| 

} 
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“%333SS3S3S3SS3555500000 0000000 
SSS WEAR GOO SL EAR Oe 


=PIPINININININMIAS FLL LLL LLL EEE 


a | 
5 
18- Sep-1984 00:38:27 AX-11 Bliss-32 V4.0-742 Page o| 
1 ~3ep-19 4 90:78:25 SORT32.SRCJSORSORT.B32;1 ’ Ait 
| TUN_K_CALC_FI OR NOT TUN_K_CALC_FE | 
~s J2LEN = .J2LEN = .INTLEN; 
a = 0; ' Set run number to zero 
YCLOSER] = YCBASE_); ' Set loser to point to self 
Bf wot TUN_K_CALC_FI 
1 YCFI] = YCBASE_) + .J2LEN; 
ZIF NOT TUN_K_CALC_FE 
ZTHEN 
- YCFE] = YCBASE_] + .J2LEN + .P2LEN; 
Lo: + , INTLEN; ! Advance to next node 
END; 
CTXCCOM_NEWRUN] = SORSSWORK_NEWRUN; ! Indicate a new run 
CTXCCOM_OUTPUT) = 0; ' Output a record to a ay file 
' (access violate if we try to output 
! a record before calling” NEWRUN) . 
RETURN SS$_NORMAL ; 


-TITLE SORSSORT 
-IDENT \V04-000\ 


.PSECT SORSRO_CODE 
00000000v 00000 _CLEAN_UP: 


escnahietaaitttaantimes dau 2,NOWRT, SHR, PIC, 


<CLEAN_UP=_CLEAN_UP> : 


-EXTRN SORSSWORK_NEWRUN 
-EXTRN SORSSWORK— ~MERGE 
SORSSWOR 


: K"WRITE 
“EXTRN SORSSWORK~ READ SORSSALLOCATE 
*EXTRN SORSSDEALCOCAT ATE 


SCOPY x6 
-EXTRN tiescer VA RORSSERROR 
-PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


007¢ 000 .ENTRY SORSSTREE_INIT, Save R2,R3,R4,R5,R6 > 0316 
000090006 00 3 00 MOVAB SOR SSERROR, R6 : 
0088 CB ¢ MOVZWL 136(CTX), R : 0388 
5 0 f 001 pics AVA. INTLEN : 
3F 8 AC ci 15 ADDL a3. EXP RECS, R1 : 0396 
50 4 AC 8 OOOIA ASHL. #9. PAGES. RO : 0397 
0 C6 0001F DIVL2 INTLEN, RO : 
0 1 D1 CMP R1, RO : 
; BLEGU 1$ : 
3 1 p A 18 MOVE Rt: 4 : 0396 
35 2 01 D CMPL =P, #2 : 9338 


SS 


roe 


832;1 
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; Routine Size: 


278 bytes, 


% iB 6 06 9 O01 
~ veneeead * ne ‘ ri 


Routine Base: SORSRO_CODE + 0000 


~ 


; 
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Sep-1984 
~Sep-19 
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Be 99:70:49 


SOBGEQ 
MOVAB 
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SORT32.SRCISORSORT.B32; 1 


$ 
§ § ORS $WORK_NEWRUN, 20(CTX) 
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MACRO 
COMPARE LSS(K,Y,DELX,DELY,EQCOND) = 
BEGIN 


i This macro expands into a key comparison and either a call to 

! the equal key routine or the output routine, depending on whether 

! or not the DELX and DELY parameters are present. If not present, 

the second parameter (Y) is the record that is output. 
i 


The value of this macro expansion is (X LSS Y), unless the keys 
compare equal. 


LOCAL 
CMP; 
REGISTER 


The result of this macro is FALSE. 


If there is an equal key routine, and we are comparing with 


a node in the tree, call the equal key routine. 


If there is no equal key routine, and we are comparing with 
the last key output, we can output the record now. 


Ogi TAC COR_COUAL NEQ 0 

ZIF ZNULL(DELX) 

ZTHEN 

! Don't do deletes 


a" ZNULL(EQCOND) ZTHEN IF EQCOND THEN 2F1 
L 


oan 
i> 


SS: BLOCKC1]); 
JSB_EQUAL(.CTXCCOM_EQUALJ, ._X, Y); 


Check the returned status and delete 
records from the sort, as requested. 


Note that if X is deleted, and Y is not deleted, 

this macro should really have the value true’. 

The effect of this inaccuracy is that there may be 
empty nodes in the $ree which could have been put 

to better use creating longer runs. If the equpe “hey 
routine has a choice, the second record should be 
deleted, rather than the first. 


Finally. if the user supel led an equal-key routine, 
a routine is generated to call his routine. 


ee ee ee ee ee ee ee ee ee ee ee ee eee 
vom 


ome me ee ee ee ee et ee ee ee ee es om Yl WIeEMo 


' The keys have been found to be equal, and there is 
! no oqupianey routine. This implies that we are 

! comparing the record with the LASTKEY record. 

' Thus, we can safely outeus the record now, and we 
' need not update the LASTKEY record, since it's 
equal to the current record. 


CTXCS_LASTI = JSB_OUTPUT(.CTXCCOM_OUTPUTI], Y); 

We can safely return at this point, since no updates 
; 

' 

‘ 
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y042000 13-808- 1382 00:78:20 SORT32.SRCJSORSORT.832;1 . (4) 
; b¢ 68 1 f an error is returned from the user routine, it 
Q $ 1 ! is signa see from the generated routine, and 
04 1 ' S$S$_NORMAL is 
05 71 #4 ! distinguish between the expected returned statuses 
BS if 1 ! and SSS_NORMAL. The following code will cause a 
0 a 2 ! problem only if the equal-key routine returns an 
bs ee ! } unexpected successful Sort status. 
19 376 ! Hf gg SSCSTSSV FAC NO] EQL SORTS_FACILITY 
1 578 1 BEGIN 
ig 0379 1 IF DIST_(.SS, (SOR$_DELETE1, SORS_DELBOTH), 
14 580 1 (SORS"DELETE25) 
15 0581 1 THEN (DELX); 
16 05 : IF DIST_(.S§, (SOR$_DELETE2, SOR$_DELBOTH), 
17 05 (SORS"DELETE15) 
18 page THEN (DELY); 
13 : 5 _ END; 
31 ; ? “FI ZIF NOT ZNULL(EQCOND) 2THEN ELSE 0 FI 
3 589 SE ! There is no equal-key routine 
4 590 ZIF XZNULL(DELX) 
5 591 XTHEN 
26 5 ¢ 
27 5 
Bh oa 
$3 596 
31 597 
32 598 
33 599 
34 600 
35 % 
£08 


COOVOOOOOOOOOOOWwWonm 


' are made to the tree. The ‘keep on chugging | code 


rere RE EEE EEE REE ERE REE RERERERERERERE EEE ERERE EER SE SE SE *& | 
oo 
mse 


Ba Se Be Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Ss Se Se Sets Se He Se SH Se Se Se Os 5 Se SH Se Se Se Se Se Se Se Se Se Sse Se Se Sees Se Se Sees 


DU PV PVP LUV PVPS SPU SUSTSISTSUSTI ST SUST STS STII 


ss = = = ot) SS SS SS SS Ss SS ) Ss SS 1 


37 

38 

39 ! which flushes the tree has no effect, since having 
40 60 ! this record jnpt ies we aren't at the end, and the 
rt: vet !' comparison with LASTKEY is not in a Loop. 

rk 609 RETURN SS$_NORMAL; 

rt i rs 

£8 716 ef! ' Put it in the tree 

48 Osta FALSE — 

$6 et ELsee™ 

51 $815 FALSE 

25 dt END 

5 061 B; 


| 
returned here. Thus we need only 
} 


<yY 
oo 


Be Oe Oe Oe Oe Se Oe Be Be Se Se Se Se Be Se Se Ge Se Se Se Se Se Se Se SH SH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seas Ge SHSe Se ee Se Se Se Se sense SH Seas 


3 ‘ $ 0 
: 6 ; 
: § : i 
Be 
; 3 6 ‘ 
: ee $59 
; ae ; 0 
; 268 6 é 
; 568 6 

; 569 0634 
ap Re 
: $7 06 § 
> SF 0638 
; 574 0639 
3s 375 0640 
; 576 0641 
.- See Boeg 
: 578 064 
; 579 0644 
; 580 0645 
; 581 6] 
3 286 064 
3; fe 0648 
; 584 0649 
; 585 0650 
; 586 0651 
; 587 Be3¢ 
; 588 065 
3; 589 0654 
; 590 0655 
; 591 065 
; 59 65 
: 332 0689 
: 296 0660 
3 236 0661 
3 4 8666 
: 295 664 
; 600 65 
; 601 066 
; 60 066 
; 60 0668 
3: 604 

. 
: $09 0678 
; 608 67 
; 609 674 
; 610 675 
s 611 76 


ee ee ee ee ee ee ee ee ee SY 
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GLOBAL ROUTINE SORSSTREE_INSERT 


~ 
oe 


NOTES: 


INP_DESC: REF BLOCKC,BYTE) VOLATILE ! Record to insert 
): JSB_INSERT = 


FUNCTIONAL DESCRIPTION: 


This routine inserts a record into the sort tree. 


! FORMAL PARAMETERS: 


INP_DESC.rab.d Descriptor of the record 
Not really volatile, but saying it_is payee Bliss 
from materializing (INP_DESCCBASE_} EQL 0). 

CTX Longword pointing to work area (passed in COM_REG_CTX) 


INP_DESC is optional, and may be absent if and only if the end of the 
input file has been reached. 


IMPLICIT INPUTS: 


The sort tree has been initialized by TREE_INIT. 
The address of a record output routine in fhe context area. 


IMPLICIT OUTPUTS: 


If the tree becomes full, records may be output to a scratch file. 


ROUTINE VALUE: 


False (SS$_ENDOFFILE) if we have completely emptied the tree. 
True (SS$_NORMAL) if the tree still contains elements. 


SIDE EFFECTS: 


NONE 


Sept acenent selection is used for the dispersion pass. 

See Vol 3 of “The Art of Computer Prograam ing’. pages 256 & ff, for a 
description of the algorithm. Steps R2 and R3 are moved to the end of 
the loop. A flag is used to oby tate testing against snr tatty. 

To avoid comparisons between uninitialized records, we test for RQ 
equal to zero before step R6. 


Additional code has been added for equal-key comparisons, and to avoid 
comparing records in uninitialized nodes, and nodes that have already 
een written. 


Two special run numbers are used. These are zero and negative one. 
fere is used to indicate an initially empty record; negative one 
ndicates a record that was emptied during the final flush of records. 
Thus an unsigned comparison can be used for comparisons based on run 
numbers. while a signed comparison with zero can be used to avoid 
comparisons. 


1B-Sep-1984 00:58:27 ANH] BLing-52_v4.0-742 
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SORSSORT 16-Sep-1984 00:38:27 AX-11 Bliss-32 V4.0-742 Page 16 
y022000 12-808- 1982 90:78:20 SORT32.SRCJSORSORT.832;1 ° (3 
s 61 677 1 !-- 
; 6) erg BEGIN 
; 614 of EXTERNAL REGISTER 
: ol? et CTX = COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 
; ei? 6 5 REGISTER 
: o}? be : Q_KEY is a pointer to the key portion of the node 
: 6 1 0686 Q_KEY = COM_REG_SRC2: REF BLOCK; ! QCKEY] in a register 
: 6 : L 0688 ZIF XIDENTICAL( CXFIELDEXPAND(KEY)J], £0,0,0,0] ) 
pie oe ee 
: 626 0691 i The pointer to the node is the same as the KEY portion. 
; ? Beas Thus, the same pointer can be used for both the node and the KEY. 
: 629 0694 BIND 
3 $63 0695 Q = Q_KEY: REF NODE_BLOCK 
fe UR es 
: $35 U 0698 i The pointer to the node is not the same as the KEY portion. 
: O38 : 5344 We must allocate another variable to point to the node itself. 
3 O36 : 149) TINFORM(' This routine is non-optimal') 
: 638 U $708 G: REF NODE_BLOCK 
Pai tes 1 ee 
> 641 0706 Q = .cTx{S_Q); ! Pointer to the node 
: ong 1444 Q_KEY = acRev); ! Address of key portion of node 
; ene 1444 Input new record 
: 646 0711 if INP_DESCCBASE_) EQL 0 ' Check for end-of-file 
: ote O71 THEN BEGIN 
> 649 0714 Crxts_RO) = -1; ! To flush the remaining records 
: 830 Har evsee” 
Be ER pe 
: O38 O79 : Read another record into RECORD(Q) 
: 66 , 1 Check whether the record should be omitted. 
: 658 7 : if NOT JSB INPUT(.CTXCCOM_INPUT], INP_DESCCBASE_), ! Convert, copy 
; 659 724 Q_REYCBASE_)) 
: Set Se THEN BEGIN 
; o36 7 $ 4 atten OM] _RECNUM] = .CTXCCOM_OMI_RECNUM) + 1; 
; 66 7 3 4 RETURN SS$_RORMAL; 
: 664 7 ; END; 
; 665 730 IF 
3 666 731 4 BEGIN 
; 66 7 ; 4 REGISTER 
; 668 7 4 LAST_KEY = COM_REG_SRC1: REF BLOCK; 
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v04- 14 Sat yi 99:78:49 SORT32.SRCJSORSORT.B32;1 


ve 


; 669 734 4 CTXCS RQ) = .CTXCS RC); ! Get current run number : 
; 670 735 4 LAST REY = A CTXES Cast): ; 
: 671 36 4 IF LAST KEYCBASE_J EQL 6 ! First time here? : 
: ore 737 4 THEN TROE : 
; Or 7 3 5 ELSE NOT COMPARE _LSS(LAST_KEYCBASE_], Q_KEYCBASE_)) ; 
: Bhs $720 : THEN’ ; 
2) eee oe eecin : 
; 678 ares 4 ; This new record does not belong to the current run : 
: 680 O45 4 CTXCS_RQ] = .CTXCS RQ) + 1; ! Belongs to next run : 
; 681 rag 4 IF .CTXCS_RMAX] LSS .CTXCS.RQ] : 
; 68 Q747 4 THEN ; 
; 68 0748 4 CTXCS_RMAX) = .CTXCS_RQ]; ! Maximize RMAX : 
; 684 0749 3 END; : 
; 685 0750 END; : 
> 686 0751 : 
: 687 O° 26 : 
; 688 075 dO : 
; 689 0754 BEGIN : 
: Bor Oye ma: 
: 69 O73 4 TI: BEGIN * : 
: 694 0759 4 ! Prepare to update : 
: rey ores 2 ; Now Q@ points to a new record, whose run number is RQ : 
: 698 ores REGISTER ; 
; 699 0764 4 T: REF NODE_BLOCK; 3 
; 700 0765 4 FE_(,1); 1 t= .QCFE); : 
; 701 0706 4 WHILE TRUE DO : 
: 0 O768 8 “5 
: 706 0769 5 i Determine which of these records is ‘‘smaller'’. 3 
: 705 0770 5 ! First compare the winner run number with the one in the node : 
: 706 0771 5 ' (if the node is smaller, it's the new winner) 3 
3 for 14h 5 ! (if the node is greater, keep the same winner), : 
: 708 077 : ! Then check whether the run number is 0 or -1 3 
; 709 0774 ! (avoid com ore uninitialized or emptied records) F 
; 710 0775 5 ! (if 0, declare this node the winner, to save time), 3 
3 ay p276 : } Then compare the keys themselves. : 
; 8 O78 é if BEGIN ; 
; «716 779 6 ~CTXCS_RQ] GTRU Bf Sa THEN TRUE : 
s 715 780 6 ELIF .CTXCS_RQ] LSSU .TLRN) THEN FALSE : 
: re 4} 6 thew -CTXCS-RQ) LEQ : 
: 718 ars § BEGIN ; 
; 719 784 7 IF .CTXCS_RQ] EQL O THEN (LEAVE TI); 3 
: ost 1 END 
; 36 P 5 ; g USE OMPARE SS(BLOCKC .TCLOSER] KEY], Q_KEYCBASE_) : 
3 73h 0789 ? TERRY = 0, CIES) =O) et ; 
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SORSSORT 16-8 p-1 AX-11 Bliss-32 V4.0-742 Page 18 SO! 
voe=000 oreeen 188s 8i7b:c9 «| Eebarso°seeSsonsOnt asec 9° (5) v0 
Se $ 0791 5 | é 
Se 36 6 BEGIN : 
; 1a 795 6 SWAP ~{TERNI TXCS_RQ]); ' RQ <--> ha : 
> 729 794 6 SWAP™ (T LOSER , 0: iQ <--> TELOSERI : 
: f » Oree Q KEY = KEY : 
i o3¢ 199 FILL: Go up (T = .TEFII) : 
; 4 ? 888 ? ay ‘Eat ~CTXCS_X] THEN LEAVE TI; Exit loop if we're at the top : 
; 735 0800 END; ; 
; Zz 0801 : 
: 4 Bans 1 End of run? 3 
; 039 0804 If, CTXCS_Ra] GTRU .CTXES_RCJ : 
; 744 0806 4 BEGIN : 
; 74 0807 4 : 
; 74 0808 4 We've just completed run number RC (which at first means run 0), : 
3 re +484 ? ; and must prepare for the next run. : 
: 746 0811 4 i Any special actions required by a merging pattern for subsequent ° 
3 ts pals ? : passes of the sort should be done at this point. : 
: hs Bale 7 For what it's worth, at this point .RQ equals .RC + 1. : 
: 031 081g 4 if CTXCS_ROI LSS .CTXCS_RCJ ! Equiv to .CTX£S_RQ] EQL -1 3 
: 753 0818 5 BEGIN 
> 754 0819 5 ; 3 
; a pase : We've completed the initial dispersion. : 
; 137 0832 ; RETURN SS$_ENDOFFILE; ; 
: 759 B24 4 s8 NEWRUN(. CTXCCOM, NEWRUN) ; ; 
$ ee 0895 4 ee -RCJ = .CTXES_RCJ] + 1; § = .CTXES_RQ] ! Set current run number : 
; 768 0827 
: ee? $34 Output top of tree : 
: oe? 0880 Q@ points to the ‘champion’, and RQ is its run number. : 
i 767 083¢ if gCTXCS_RG] GTR 0 ! First dummy run, or flushing? 3 
: 769 0834 rs BEGIN : 
: 770 835 4 ! : 
3 aa Be38 ? Output record pointed to by Q 
: a6 0838 : CIxts_ LAST] = JSB_OUTPUT(.CTXCCOM_OUTPUT], Q_KEYCBASE_)); 
F ore O40 ? | 727? We don't need to exitloop if we are flushing to a work file. 
: 77 4g 4 EXITLOOP; 
: 778 C 0843 4 2 
3 443 : : ? } Is this correct? 
; 44h 3 § 2 Unless we are flushing the tree to a work file, exit the loop. 


6 
04000. 1E$00r1984 99:98:22 YNGHL, SLsgcHz weitere all 


> 783 C rt 4 IF_ .CTXCCOM_RUNS] EQL 0 

; C 0849 4 THEN 

3 78s C 0850 4 BEGIN 

: 7R6 E Opes iy "et writ k fil l 

788 0 38 4 i, a writing to a wor e, so leave now. 
: 790 € 0855 4 END; 

; 791 0 28 4 )% 

; 79 085 END; 

; 79 0858 

: 794 + 84 

: ak) + ¥¢ } If we are emptying the tree, keep looping until we output a record 
: 797 086 if INP_DESCCBASE_) EQL 0 

.: on: Nats Rt) «2 Foe oacncie 

3 se : t t t 
ee peee 3s ' e are emptying the tree 
: 801 0866 EXITLOOP; 

; 80 0867 

; 80 0868 UNTIL FALSE; 

; oe $890 CTXES_0) = .0 ' st Lue of @ 

; = .Q; ! 

; fa * ore value o 

; 807 Oar 6 RETURN SS$_NORMAL; 

; 808 0873 1 END; 


5A 30 = AB 0000 SORSSTREE_INSERT:: 


dO 0 
MOVL 48(CTX), Q : 0706 
04 AE D5 00004 TStL INP_DESC : 0711 
03 12 00007 BNEQ 1$ : 
OOEA 31 00009 BRW 17$ ; 
59 04 AE DO 0000C 1$: MOVL —_INP_DESC, R9 : 0724 
08 8B 16 90019 JSB ag(CTx) ; 
06 50 €8 0001 BLBS RO, 2$ ; 
00Bc CB D6 00016 INCL  188(CTX) : 0727 
20 11 OOO1A BRB 3$ : 0728 
20 AB 8 AB DO 0001C 2s: MOVL  4O0(CTX), 32(CTX) > 0734 
59 C A D 0021 MOVL 60(CTX), LAST_KEY ; 0735 
18 1 00 3 BEQL 4$ : 07 
00 BB 1 JSB a0(CTX) : 07 
D 90 A TSTL © CMP : 
0 19 0002c BLSS 5$ ; 
F 12 000 BNEQ 4$ : 
04 AB D5 000 TSTL  4(CTX) : 
OA 1 0 BNEQ 4$ ; | 
oc : 1 JSB a12(CTX) ; 
3c AB p MOVL RO 60(CTX) : 
00¢ 003C 3$: BRW 19§ ; 
30 AB D6 F 4$: INCL e(cTX) > 0745 
20 AB 4 AB D 4g CMPL (CTX), 32¢CTX) : 0746 
0 18 4 BGEG 4 ; 
24 AB 20 AB OD 49 MOVL 2(CTX), 36¢CTX) : 0748 
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; Routine Size: 261 bytes, Routine Base: SORSRO_CODE + 0116 


. 
| 
| 

3 09 74 «4 

3 19 6 } ; Compile-time checks on the size of the SORSSTREE_INSERT routine 

; Bl 8 1 OWN 

H a1? 4 : , TERN _TREE_INSERT: BLOCKCO] PSECT(SORSRO_CODE) ALIGN(0); 

; B18 0 1 SIZE_TREE_INSERT = END__TREE_INSERT = SORSSTREE_INSERT, 

$ 81$ 1 1 OLD “TREE_INSERT = 261; _ 

3 1 U ¢ 1 Z1F SIZE TREE INSERT GT olD_ TREE_ — ZTHEN 

; 818 oe 1 ZWARN('STZE_TREE_INSERT Ras gotten RNs a > “FI 

; 819 U . 4 1 R1F SIZE ieee INSERT CSS OLD __TRE oINS ERT 

; as 9885 1 XZINFORM(*SIZE_TREE INSERT has gotten hn « A ) “FI 

: 1 peas 1 UNDECLARE 

3 $6 0887 1 END _ TREE INSERT 

; & 0888 1 SIZE-TREE_ INSERT, 

; 824 0889 1 OLD_ “TREE_INSERT; 


F 6 
SORSSORT 16-Sep-1984 00:38:27 AX-11 Bliss-32 V4.0-742 Page 22 
y0e 2000 12-808-1 382 99:78:26 SORTS2 SRE ISORSORT 85801 . (6) 
H : $ 8 39 } GLOBAL ROUTINE SORSSTREE_EXTRACT 
: B28 892 1 OUT_DESC: REF BLOCKC, BYTE) ! Extracted record 
; B29 é 38 1 Ni F VECTORC1 ,wORD] 
: 0 94 1 ): JSB_EXTRACT = 
A Bir 
; 0897 1 | FUNCTIONAL DESCRIPTION: 
; 834 0898 1! 
$ ; 5 94 } This routine returns a record from the sort or merge. 
; : i 4 ! FORMAL PARAMETERS: 
; 839 0908 . | OUT_DESC.rab.d Descriptor of the record extracted 
; 840 0904 1! LEN. waw.r Address of returned length 
3 ot 844 : ! CTX Longword pointing to work area (passed in COM_REG_CTX) 
3 $08 0907 1°! IMPLICIT INPUTS: 
> 844 0908 1! 
; 6845 0909 1! NONE 
; 846 0910 1! 
; 847 0911 1 =! IMPLICIT OUTPUTS: 
> 848 bale 1! 
: 849 0913 1! NONE 
; 850 0914 1! 
; 851 0915 1 ! ROUTINE VALUE: 
3 $26 0916 1! 
; «85 0917 1! Status code : 
; S28 gas : SSS$_ENDOFFILE indicates the end of the sorted records. 
; 856 0920 1 ! SIDE EFFECTS: 
3 Bor 0921 1! 
; 858 09 ¢ 1! NONE 
; 859 09 1 !-- 
; 860 0924 BEGIN 
; 861 0925 EXTERNAL REGISTER 
; 862 0926 CTX = COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 
; 86 927 LITERAL 
; 864 928 OPC_RSB = %x'05'; 
; Bee 0989 
; 86 0931 ! If we haven't written to the work files, we can write directly to the 
; 868 9 § ! user's buffer, via TREE_OUTPUT. Otherwise, we must first flush the 
5 , 4 ? ; tree into the work files, and do the merging. 
3; 871 935 ! Important! The output run should be included in the number of runs 
: 87 9 ! (CTXCCOM_RUNS]), even if the output of the merge pass is going to the 
: a , output file. 
; 875 939 IF .CTXCCOM_RUNS) EQL 0 
; 87 940 THEN 
3; 87 941 BEGIN 
; 878 4g CTXCCOM_NEWRUN)] = UPLIT BYTE(OPC_RSB); ! Nothing special for new runs 
3 79 94 CTXLCOM_ OUTPUT] = TREE_OUTPUT; ' Output to the user's buffer 
; 880 944 CTX g-DESC] = OUT _DESCTBASE_]; ' User's buffer 
3 1 945 CTXCS-LEN) = LENCO; ! User's Length 
; 882 946 RETURN SORSSTREE_INSERT(O); 
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SOROSERAGR CESS, DAD SORTS 


THEN 

eu ge READ INSERT (@_FUOLBASE_1, QUEVECO.BASE_J) | 
BEG! | 
IF ,QUEVECO,QUE_PRESENT) 


; 883 947 END 

3 94 ELSE 

3 5 94 BEGIN 

3 9 STACKLOCAL 

3; we 951 QUEUE : REF BLOCKVECTORC1+TUN_K_MAX_MERGE ,QUE_K_SIZEJ, 

3 4 2 j Q_FwD: REF BLOCK; 

3 £96 954 IF .CTXCCOM_STAT_PASSES) EQL 0 ! First time here? | 
: 891 955 THE 
a. af a 

; B9e ; 4 2 ; Call another routine for the merging, to keep this one simple. 

; 96 0960 4 MERGE_PASSES(); 

; 89 961 END; 

; 898 306 

; 899 96 ' Get a pointer to the queue 

; 900 0964 ‘ 

: 901 Beee QUEVE = .CTXCS_QUEUE); 

:; 90 966 

; 90 0967 WHILE TRUE DO 

; 904 0968 4 BEGIN 

; 905 0969 4 UILTIN 

; 906 0970 4 TESTBITSS, 

; 907 0971 4 TESTBITSC; 

; 908 0972 4 

; 909 0973 4 Q_FWD = .QUEUECO,QUE_FwD); | 
: 910 0974 4 

3; 911 0975 4 ' Check for finishing the sort or merge 
: alg 0976 4 ! 
; 91 0977 4 IF .Q_FWD NEQ QUEVECO,BASE_) 

: 914 0978 4 

; «915 0979 ‘5 BEGIN 

3 Zig 0980 é IF .CTXCCOM_SEQ_CHECK] 

; (91 0981 THEN 

; #918 0982 6 BEGIN 

; 919 0983 6 LOCAL 

3; 920 0984 6 DEL; 

: 921 0985 6 

; 9 § 0986 6 ' Check the sequence, if requested. 

: 92 0987 6 ! Note that we make the call to the equal-key routine 

: ase 0988 6 ! conditional on whether the ‘‘extra’’ record 

: 5 94.34 ? (at QUEVECO,QUE_REC]) has already been deleted. 

Py H } 
3; 9 : $334 6 DEL = FALSE; 
; 928 P 236 6 IF COMPARE_LSS(.Q_FWOCQUE_REC], .QUEVECO,QUE_REC), 
3; 929 P 0993 6 DEL = TRUE 

: 930 994 6 QUEVELO QUE PRESENT] = FALSE, 

; 931 995 .QUEUECO,QUE_PRESENT) ) 

; 9 ¢ 996 6 THEN 
3; 9 6 

3 «934 6 

3 955 6 

; 9 6 

:; 93 § 

; 938 

; 939 7 
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j= out ESCCBASE_J; 
UEUE 6. ave _REC)); 


END 
ELSE 
BEGIN 


' Return the smallest record to the user 
Read another record, and insert onto the List 


érx S DESC) = = our ESCCBASE_J; 
CTXCS"LEN 
TREE_OUTPUT(. te ruD due 
READ~ INSERT (Q OFUDLBASEn] Ca iuECO. BASE_}); 
RETURN SS$_NORMAL; 
END; 
END 
ELSE 
BEGIN 
: Process the extra record that may be hanging around 


if _TESTBITSC (QUEUECO,QUE_PRESENT]) 


BEGIN 
eres DES SC] = stb ven j; 


CTXCS"LEN 
TREE BUTPUT ( .QUEUECO, QUE REC)); 


RETURN SS$_ NORMA 


ELSE 
RETURN SSS_ENDOFF ILE; ! We're finished 


END; 
RETURN $S$_NORMAL; 
END; 


0021B END__TREE 1 ee 
05 0021B P.AAA: “BYTE 


: 
6 

SORSSORT 1b-se =1984 00:38:27 AX-11 Bliss-32 V4.0-742 Pa 5 S 

y002000 1 ~300 71382 90: 78:25 SORT32.SRCJSORSORT.B32;1 - | V 

| 

7E 57 7D 00000 SORSSTREE_EXTRACT:: : 

va = R?, =(SP) : 0890 ; 

5E 08 ¢ 3 UBL2 : : 

7A AB é IST 120(CTX) + 0939 ; 

146 AB Fl AF 9 MOVAB P.AAA, 20(CTX) : 3 

9¢ AB 0000v CF $e 1 MOVAB TREE OUTPUT, 12(CTX) : g : 

4 ~aB AE 70 00016 mMOVa OUT DESC, S2(CTX) + 0944 ; 

7E ps 1B CLRL = =< SP) + 0946 : 

FEDA 1 BSBW  SORSSTREE_INSERT : ; 

SE 04 : ADDL2 #4, SP : ; 

0003 BRW 15$§ + 0949 ; 

0086 8 83 6 1$ TSTw © 182¢CTX) + 0954 ; 

A BNEQ 2s : 3 

0000v CF 0 F C CALLS #0, MERGE_PASSES + 0960 ’ 

04 AE 40 AB D 1 2%: MOVL  64(CTX), QUEUE 3 0965 ; 

5 04 AE OD MOVL QUEUE, RB + 0973 : 

6 68 0D 90 A 3S: MOVL (RB), Q FWD : : 

$f DO 000 MOVL Q-FWb, R7 : 0977 ; 

58 D1 0004 CMPL ~=—séR7, RB : ; 

03 {¢ BNEQ 4$ : $ 

0094 31 0004 BRW 12 : ; 

7B 5B AB g1 E1 00048 4s: BBC #1, 9ICCTX), 118 + 0980 ; 

: D4 0004D CLRL DEL : 0991 : 

59 08 A D9 O04F MOVL © B(R7), OX : 0995 : 

5A 08 AB OD 0093 MOVL (RB). R10 : : 

00 ; 16 005 JSB a0(CTk) : ; 

DS 0005A TSTL CMP : ; 

9 19 0005¢ BLSS gs : ; 

4 12 0005 BNEQ % ; 3 

04 AB D5 0006 TSTL 4 CTX) F ; 

2F 13 0006 BEQL «6s 7$ : ; 

8 Oc AB €9 0006 BLBC  12(R8), 7$ : ; 

A 08 AB DO 00069 MOVL 8 (RB), R10 : : 

04 be 16 9060 JSB a4(CTk) : : 

1¢ 50 0c 1 F 00 CMPZV #16, #12, SS, #28 : : 

1 07 BNEQ 7 : ; 

03 50 03 €1 0007 BBC #3, SS, 5$ : ; 

a 1 D0 078 MOVL #1. DEL : : 

12 50 4 € 7E 5$: BBC #4 3s. 7$ ; ; 

Oc AB b4 CLRL etR ) ; : 

dD 11 BRB 3 3 

001¢80D0 8F DD 00 6$: PUSHL #1867984 : 0997 ; 

000000006 : 1 FB 0 CALLS #1, SORSSERROR : : 

E9 00094 7$: BLBC DEL, 9$ : 0998 ; 

4 9 97 MOVL 7, R6 : 1000 ; 

0000v 9A BSBW  READ_INSERT ; ; 

1 9D gs: BRB 3 3 

0c oc A 59 OF 9$: BLBC (RB), 10$ > 1003 : 

34 AB 14 =A a3 MOVO guT Desc, 52¢CTX) : 1906 ; 

SA 08 A A MOVL (RB), R10 : 1008 : 

0000v AC BSBW TREE 6uTPUT ; : 

08 68 08 87 0088 cB AF 10$: MOVC3 13 CTX), @8(R7), a8(R8) : 1012 : 
6 D B7 MOVL 7, R6 : 101 
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— 
a 
oe 


12$: 


13$: 


READ_ INSERT 
i, TKR, 148 
#i, 12(R8) 


T_DESC, S2¢CTX) 
Bin?) rio sity 
REE OUTPUT 


READ_INSERT 
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; 992 1 4 ROUTINE TREE_OUTPUT 

: 994 1 $ 1 SRC_ADDR: REF BLOCK ! Address of internal format record 
> 995 1 1 }: JSB_OUTPUT = 

: 1 1 144 

: 399 1060 1 | 

: 99 1 1 | FUNCTIONAL DESCRIPTION: 

3 139 1! 

: 1900 : o7 : This routine returns a record to the user. 

:4 1908 1 | FORMAL PARAMETERS: 

3 7 1308 & 

; 1004 1067 1! SRC_ADDR.ral.v Address of internal format record 

3 Ht 1998 : CTX Longword pointing to work area (passed in COM_REG_CTX) 
: 1007 1090 1 | IMPLICIT INPUTS: 

> 1008 1071 1: 

Er teeta |e 

: 1011 1074 1! IMPLICIT OUTPUTS: 

; 1018 1075 1: 

t lo14 ion? 1 i _— 

> 1015 1078 1 | ROUTINE VALUE: 

: 1016 1079 1: 

: 1018 108) 1 i 7 

> 1019 1082 1 | SIDE EFFECTS: 

> 1020 1083 1: 

: 1021 1084 1! NONE 

: 1088 1088 2 BEGIN 

> 1024 1087 EXTERNAL REGISTER 

+ 1025 1088 CTX =  COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 

> 1026 1089 LOCAL 

: 1027 1090 STATUS, 

> 1028 1091 LEN, 

3 i} 9 1996 ADR; 

: 1031 1094 JSB_LENADR(.CTXCCOM_LENADR], SRC_ADDRCBASE_J; LEN, ADR); 

1038 1998 aah 

> 10 1097 W: REF VECTORC1,WORD): 

; 19 5 1098 IF (W = .CTXES_LENJS NEQ 0 THEN WLO) = .LEN; 

: 1039 11 ite 

; 1038 L HY Xf NOT HOSTILE 

> 1040 11 5 STATUS = LIBSSCOPY_R_DX6(.LEN, .ADR, .CTXCS_DESC)); 

> 1041 11 IF NOT .STATUS THER SORSSERROR(SORS.SHR_SYSERROR, 0, .STATUS); 

; 1048 U 1105 ELSE 

1944 at BIND. | 
> 1045 11 D = .CTXCS_DESC): BLOCKC, BYTE); 
; 1046 y 11 3 CHSCOPY(LEN, ZADR, 0, .D DSCEU LENGTH, .DCDSCSA_POINTER)); 

: 104 U 1110 END; 

: 1048 1111 FI 


ag a at a 


| 
soassont 1$-e0-1964 00:58:27 yaxett olen 52 v4. 0-742 page 28) | 


:1 111 

:4 8 1118 RETURN 0; 

A EINE Bm 

:4 j C 1116 = ints DESC]: BLOCKL, VTE); 

> 1054 € 111 ASSE ERT. (DSCSK“CLASS_2 LSSU H 

> 1055 ¢ 1118 ASSERT (DSCSK K CLASS S USSU 2) 

: 1996 c 1119 LF DEDSCSE._ ASS) CSsu 

: 1058 ‘ 1 1 eu 1p CSCOPY LEN, .ADR, %C' *, .DCOSCSW_LENGTH], .DCDSCSA_POINTER) 
; 1960 c 1 § “St -DCDSC$B_CLASS] EQL DSCSK_CLASS_D AND .LEN LEQU .DCDSC$W_LENGTH] 
: 1068 € 1125 CHSMOVE(.LEN, .ADR, .DCDSCSA_POINTER) 

> 106 C11 6 SE 

> 1064 C11 BEGIN 

TRS en” 

: 1067 € 1130 sTaTis’s Fi asscopy R_DX6(.LEN, .ADR, DCBASE_] 

> 1068 € 1131 IF NOT .STATUS THER SORSSERROR(SORS. SHR OA TSERROR, 0, .STATUS); 
> 1069 C 1138 ND; 

5 1070 115 ” 

: 1071 1134 1 END; 
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10 6B 


60 
SB. @16(CTX) + 1094 
52 38 AB DO 90003 MOVL  56(CTX), W : 1098 
03 13 0000 BEQL '1$ : 
8S bd Sp009 MOVW LEN, (W) : 
52 34 AB DO 0000C 1$: MOVL (ETX), R2 : 1103 
000000006 00 16 00010 JSB LIBSSCOPY_R_DX6 : 
1 50 €8 00016 BLBS = STATUS, >s"- + 1104 
50 0D 00019 PUSHL STATUS : 
7E D4 0001B CLRL. = (SP) : 
001¢11B4 8F DD 0001p PUSHL #1839540 ; 
000000006 00 93 FB 000 CALLS #3, SORSSERROR ; 
D4 0002A 2$: CLRL = RO $1113 
05 0002¢ RSB + 1134 
; Routine Size: 45 bytes, Routine Base: SORSRO_CODE + 031C 


| a 6 | 
SORSSORT 16-Sep-1984 00:38:27 AX-11 Bliss-32 V4.0-742 Page 29 
$00.00 13-808- 1382 90:78:22 YeORT 2.SRCIJSORSORT.B32;1 . é) 
5 1974 1} 5 ROUTINE READ INSERT ! Read a record and insert in queue 
; 1075 11 § 1 PENTRY REF BLOCK, 

3 1976 11 3 1 QUEUE REF BLOCK 

: 190 11 1 JSB_READINS NOVALUE = 

3; 3 8 1140 1 !4¢ 

; 44 1141 1! 

; 1080 1336 1 ! FUNCTIONAL DESCRIPTION: 

: 1081 11453 1! 

: 1086 1iee } This routine reads a record, and inserts the entry in the queue. 
3 198¢ 1349 1 ! FORMAL PARAMETERS: 

; 1085 114 1! 

>; 1086 1148 1! PENTRY Address of entry 

3; 1087 1149 1! QUEUE Address of queue header 

3 +4 1339 ! : CTX Longword pointing to work area (passed in COM_REG_CTX) 
3; 1090 1126 1 ! IMPLICIT INPUTS: 

3 1091 1153 1! 

3 1936 1154 1! NONE 

3: 109 1155 1! 

: 1094 1156 1 ! IMPLICIT OUTPUTS: 

3: 1095 1157 1! 

3; 1096 1158 1! NONE 

: 1097 1159 1°! 

3; 1098 1160 1 ! ROUTINE VALUE: 

3; 1099 1161 1! 

; 1100 1336 1! NONE 

3; 1101 116 1! 

: 4 1164 1 ! SIDE EFFECTS: 

3: 110 1165 1! 

3 1104 1166 1! NONE 

3 1105 1167 1 !-- 

3 1106 1168 § BEGIN 

3; 1107 1169 EXTERNAL REGISTER 

> 1108 1170 2 CTX =  COM_REG_CTX: | REF CTX_BLOCK; 

: 1109 1171 2 

3; 1110 11% § LITERAL 

31111 117 D_ENTRY = 0, ' Delete ENTRY 

3 Wig 1174 D_POINT = 13 !' Delete POINT 

3 111 1175 

3 11146 1176 BUILTIN 

3 1115 1177 TESTBITSC, 

3 1138 1178 TESTBITCC; 

s 111 117 

3; 1118 1180 MACRO 

3 1119 Mm 1181 REMQUE_(A) = ! Remove A from a queue 

: aT M11 ¢ BEGIN 

: 1121 411 BLOCKCL.BLOCK A -OUE PUD QUE_BWO) = .BLOCKCA,QUE_BwDJ; 

: 1138 4 i 7 Broce -BLOCKLA,QUE_BWOJ, QUE_FWO] = .BLOCKLA,QUE_FwWDJ; 

3 1 ¢ . 1 $ INSQUE (A,B) = ! Insert A just before B 

3 1138 4m 1188 BLOCK A-OUE FuB = OL ocere BASE_]; 

> 1127 4 1189 BLOCKLA,QUE-BWwD) = sBLOCK 6 QUE~BWD); 

> 1128 m 1190 BLOCKC .BLOCRCA,QUE_BWD), GUE FWD) = BLOCKCA,BASE_); 

> 1129 mM 1191 BLOCK(B,QUE_BWO) ="BLOCKCA,BASE_J; 
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19 END %; : 
; Deletion flags D_ENTRY and D_POINT 
9 LOCAL 
4 3: BITVECTORCZBPVAL) INITIAL(O); 
REGISTER 


ENTRY: REF BLOCK; 


Get a copy of PENTRY in a register 
ENTRY = PENTRYCBASE_); 


} Remove ENTRY from its current place in the queue 
REMQUE_(ENTRYCBASE_)); 


Continue until we don't delete ENTRY 


' 
i] 
! The deletion flags are always 0 at the start of the Sol Loving loop, due 
to the use of the INITIAL attribute and TESTBITSC and TESTBITCC builtins. 
WHILE TRUE DO 

BEGIN 

REGISTER 

POINT: REF BLOCK; 


Read the record 

ENTRYCQUE_REC] = SORSS$WORK_READ(.ENTRYCQUE_RUNJ); 

! At the end of run, don't put ENTRY in the queue. 

Thus, we will not read from this run again. 

if .ENTRYCQUE_REC) EQL 0 THEN RETURN; ! Indicates end-of-file 


Determine where the record belongs in the queue 


POINT = .QUEUECQUE_FWD); 
WHILE POINT BASE_J~NEQ QUEVECBASE_} DO 


SN SNS NNSA AAA AAA AAD Mt BB BBB EEE EWAN 


IF COMPARE LSs¢ .POINTCOUE REC], .ENTRYCQUE_REC), 
_POINT] = TRUE, SCO_ENTRY) = TRUE) 


POINT = .POINTCQUE_FWDJ 
EXITLOOP; 
ND; 
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! If keeping ENTRY, insert it in the queue just before POINTCBASE_J 
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SORSSORT 1b-se -1984 00:38:27 AX-11 Bliss-32 V4.0-742 Page 31 
v04-000 1278 08- 1 3b 90: 7B: fo YeoRT 2.SRCJSORSORT.B32;1 ’ (Bs 
118% 1388 ; if TESTBITCC(SCD.ENTRYI) 
3; 1189 1 24 THEN oS 3 
: 1190 1 26 4 BEGIN 3 
3: 1191 1 4 F 
; 1136 } ¢ : ; Insert ENTRY in the queue just before POINTCBASE_J : 
§ Vi8e : 2$ : INSQUE_(ENTRYCBASE_J, POINTCBASE_]); ‘ 
3: 1196 1258 4 ' To delete POINT, make ENTRY Look Like POINT and continue 3 
: 1197 1259 4 ' Looping. This avoids a recursive call. ; 
: 1138 } re ? If keeping both, return (hurrah, hurrah!). : 
; 1200 1 6 4 IF TESTBITSC(SCD_POINTI) 3 
3 1201 1263 4 THEN 3 
3 1506 1264 5 BEGIN 3 
3; 120 1$9? 5 ENTRY = POINT BASE 4; 3 
> 1204 1266 5 REMQUE_(ENTRYLBASE J); : 
3 1205 1267 5 $<0, %BPUNIT®ZALLOCATION(S) ,O> = 0; ; 
3 1206 1268 5 ND 3 
: 1207 1269 4 ELSE 3 
3; 1208 1270 4 RETURN; F 
3 1209 1271 4 END 3 
3 1210 1 ue 3 ELSE 3 
3: 1211 1273 4 BEGIN 3 
3 isi¢ 1274 4 3 
; 121 1275 4 ! To delete POINT, use READ_INSERT to read from its run. 3 
3; 1214 1576 fs ! This is a recursive invocation of READ_INSERT. : 
3 1215 1277 4 ! Note that the maximum recusion level is TUN_K_MAX_MERGE, 
: 1216 1278 4 ' because we've deleted a item from the queue, and fave not yet 
3 1217 1279 4 ! inserted anything in the queue. 
: 1218 1280 4 ! 
3 1219 1281 4 IF TESTBITSC(SCD_POINT)) 
: 1220 1se¢ 4 
3 \$6) \¢o7 ? READ_INSERT(POINTCBASE_J, QUEVECBASE_)); 
: 1558 1285 4 ' Continue Looping, since we need to read another ENTRY. 
3 12246 1286 4 ' 
3; 1225 1287 4 0; 
3 1226 1288 3 END; 
3 1227 1289 
3 ! $8 iszy END; ' Continue until we don't delete ENTRY 
ee | 50 1382 
3: 1231 129 END; 
57 DD 00000 READ_INSERT: 
PUSHL R7 : 1135 
7E D4 0000 CLRL S ; 1168 
28 D 8 MOVL PENTRY, ENTRY ; 1598 
50 67 D 7 MOVL (ENTRY : 1210 
04 A 04 A? D 0 OA MOVL 4(ENTRYS, 4(RO) ; 
4 50 D F MOVL RO, @4(ENTRY) 3 
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LOCAL 
QUEUE: REF BLOCKVECTORC1+TUN_K_MAX_MERGE ,QUE_K_SIZE]J, 
STATUS; ' Status 


SOUR 


! If this routine was called due to a sort (rather than a merge), 
clean up the replacement selection tree. 


if NOT .CTXCCOM_MERGE) 
THEN 

BEGIN 

! Flush the tree 


WHILE (STATUS = SORSSTREE_INSERT(O)) DO 0; 
IF .STATUS NEQ SS$_ENDOFFILE THEN RETURN SORSSERROR(. STATUS) ; 
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SORSSORT 16-Sep-1984 38:27 AX-11 Bliss-32 V4.0-742 Pa 3 
yoes000 ba aets 1 9 3 49 SORT32.5S CISORSORT.B3251 - (3 
? ROUTINE MERGE_PASSES: CAL_CTXREG NOVALUE = 
5 144 
6 : 
4 } FUNCTIONAL DESCRIPTION: 
i ! This routine performs the merge passes. 
3 |! FORMAL PARAMETERS: 
“8 ! CTX Longword pointing to work area (passed in COM_REG_CTX) 
45 | IMPLICIT INPUTS: 
47 i NONE 
48 ' 
r4 ; IMPLICIT OUTPUTS: 
51 3 i NONE 
26 3 ‘ 
e7 3 } ROUTINE VALUE: 
55 i NONE 
56 : 
57 ' SIDE EFFECTS: 
58 3 ! 
59 3 ! NONE 
60 3 !<< 
61 3 BEGIN 
6¢ 3 EXTERNAL REGISTER 
6 ; CTX = COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 
3 
3 
3 
| 


Deallocate the replacement selection tree 
SORSSDEALLOCATE (. CTXCCOM_TREE_LEN], CTXCCOM_TREE_ADR)); 
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Save the number of runs in the dispersion, for statistics 
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One more merge pass 
CTXCCOM_STAT_PASSES] = .CTXCCOM_STAT_PASSES) + 1; 


30 CTXCCOM_STAT_RUNS] = .CTXCCOM_RUNSJ; ! Number of runs in dispersion 
9 

8 ! Allocate storage to told the queue. 

Be One entry per run, and one for the queue header. 

96 QUEUE = CTXCS_QUEUE] = SORSSALLOCATE 

44 ( (1+TUN_K_MAX_MERGE) * QUE_K_SIZE * ZUPVAL ); 
99 

4 While there are more runs than can be handled at once, ... 
0 WHILE TRUE 00 

0 BEGIN 

04 LOCAL 

05 RUNS: VECTORC1+#TUN_K_MAX_MERGE); 


! Determine which runs to merge. 
! This routine also initiates reading these runs. 


SORSSWORK_MERGE ( 


76 
C. CTT SON_RUNSJ=2) MOD (TUN_K_MAX_MERGE-1) + 2, 
RUNS(O0J); 


CTXCCOM_STAT_MERGE] = MAXU(.RUNSCOJ, .CTXCCOM_STAT_MERGE]); 


Initialize queue entries for each run 
DECR I FROM .RUNSCO) TO 1 DO 
BEGIN 
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LOCAL 
P: RE CK; 

‘ P = QUEUE[.1, BASE_J; 

PCQUE_FWD) =P BASE. 1; ' Point to self 
3 PCQUE_BWD) = PLBASE_j; ! Point to self | 
3 pL OUe FUN = .RUNSL.1); ' Init ptr to run info 

QUEUECO.QUE_FWD] = QUEVECO. BASE. : ' Init queue header 

335 QUEVELO,QUE_BWD) = QUEVELO,BASE_J; ! Init queue header 
a 


Read a record from each run 


DECR I FROM .RUNSCO] TO 1 DO 
READ_INSERT(QUEVEL.1,BASE_J, QUEVECO,BASE_)); 


If sequence checking, allocate and read an extra record 


If .CTXCCOM_SEQ_CHECK) 
THEN 
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LOCK; 
; : SORSSALLOCATE (.CTXCCOM_LRL_INT]); 
UEUEEO BASE.) 


mmnw 
omeqa 


TRUE; 
J, QUEVECO,BASE_J); 


! If this is the final pass (indicated by conper tng the number of 
! active runs with the number of runs being merged), return now 

! TREE_EXTRACT will use READ_INSERT to get the records. 

! Note that for a merge, we will always return here. 


i] 
' 
' 
4 
' 
UF gC TXCCOM_RUNS] - .RUNSCO) LEQ 1 ' EQL suffices, LEQ is robust 
RETURN; 


Process all the runs 


WHILE .QUEUECO,QUE_FWD) NEQ QUEUECO,BASE_} DO 
BEGIN 


i Qutput the smallest record 

Read another record, and insert onto the List 
SORSSWORK wRITE( -BLOCKE -QUEUELO QUE_FWDJ, QUE_REC)); 
READ_INSERT ( . QUEUE O,QUE_FWOJ, QUEUELO,BASE_JJ; 


END; 


O7FC 00000 MERGE_PASSES: 
WORD R4,R5,R6,R7,R8,R9,R10 


Save R2,R3 
5E AC AE 9 0 02 MOVAB -84(SP). SP 
5¢ AB OQ TSTB) =—s_- 92. CTX) 
D 19 00009 io, =. a 
; ps 1$: CLRL © = (SP) 
FD BSBW SORSSTREE_INSERT 
5 4 ¢ 1 ADDL2 #4, SP 
F 0 E 9 1 BLBS STATUS, Is 
00000870 = &F D1 16 CMPL STATUS. #2160 


Page 
=32 v4.0-742 
7 oH ee OT oe ate motels 
~Sep-1984 00:38: ORT32.SRC ; 
1se0-198 ase ) 
voe=000 ¢0 dB ore CALS 11. SORSSERROR 
oh 4 Re (CTX) 
comet ie oF a PUSH Spec OCATE 
Boce c8 PB 0008) CALLS geet Venter : 
F ; MOVw = 1 -($p) ; 
006 00 AB ; 38: MOVZWL #356 ALLOCATE ‘ 
ee re 0150 f ac if CALLS a. sate) ; 
Qu ; 
000000096 As 8 4 rt} voy Rg, SUE 
5 0086 ge 4 : , pov TOL SooceTx RO <(3) : 
E Ob8 eee” Ae bee eee P? 
28 7A oe i 0058 tr #19, (SPD+, RO, : 
13 7B 00064 PUSHAB 2(R WORK_MERGE 3 
ites =, 8 se ROVE RS Re cere RO : 
, 0 #0, #8, . ; 
000000006 98 ip 44 0076 CMPZV 9. ; 
BLEQU TX), RO 
08 0 iB 0070 MOVZBL abe TR : 
- mate Sis 50 0088 £8 4 8086 5$: pr tog ay RUNS, I : 
08 CB 01 ¢1 00089 BRB 7$ 1 ; 
° 6€ 13 11 0008D ASHL. #4, I, R : 
™ OS 78 Qogee 6s ADDL2 QUEUE, P : 
2! 51 D0 00 VL 12(P) ; 
61 7, BR Ronee MOVE | RUNSEII, ; 
oc AN OEE PS OOOAD 7S: ROVE Qveue, (QUEUE) : 
ne 3B DO OOOAS MOVE. QUEUE, 4 (QUEU ; 
68 38 DO OO0AB ADDLS. AIL RUNS. I : 
04 AB 31 C9 OOOAE BRB COS ‘ 
6E 0B 11 00080 ASH. #4, 1. RQ 
ad Tose” Se QUEUE, 
. 57 9 C1 00086 BSB READ_ INSERT 
z “ reaF FS 0008) 9S: —--SOBETR iH, gk es a 
3 te Sc sae itty Hi. SORSGAL LOCATE ; 
27 58 7E 0088 CB FB OOOCA C VL RO, 8(0 wD : 
4 D1 nO (QUEUE), QF 
wr. oe g 8 oD CHPL GQ FUD. GUEDE i 
58 8 5 00008 BEQL 138ccr9 @8(Q_FWD), a8(Qu 
yom ‘ OW rch 
es Oc AB reid 3 Fe 108: ADDL #0" los 15S(CTHD, RO 
50 6 00 t BLO Tab, R? ; 
7A AB ; D fa CmPL ORT QUEUE : 
i tn 
FFAE 3 106 ° 


vOs=000. 


3; Routine Size: 


H 7 
16-Sep-1 7 AX-11 BLi $332 V4.0-76 
1e-88b-1982 $9:78:25  eoatdo°sneisonsoni eso, 
A7 103 1 ( 
=, 000000006 % | ; - 38 é RSSUORK WRITE 
FE i 11 BSBW READ_INSERT 
E 11 BRB 11$ 
115 13$: = RET 
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ROUTINE CLEAN_UP: CAL_CTXREG NOVALUE = 
‘td 
FUNCTIONAL DESCRIPTION: 

Release resources allocated by this module. 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE (signals errors) 
SIDE EFFECTS: 

NONE 


SSESSIETES 


PEA QAP MMA ANINIVIVIVA 


oO: 


BVZS 


at 


LS 


OOOO OO 00.09 00.00 09 09 09 0909 INI NINSISI NINN IO 
ORLSSSLESRANLSSSLSARUN=SSHNOAPUNI—o oe 
ERROR OP OROPOPOPOROPONONUPOPOPUPUPINIPPPUPIPINIIND 9 tt tt 


SSLESF 


PDI) et et at oe 


BEGIN 

EXTERNAL REGISTER 

cocac” =  COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 
QUEUE: REF BLOCKVECTORC1+TUN_K_MAX_MERGE ,QUE_K_SIZEJ; 


: Deallocate the extra storage used for sequence checking 
iF (QUEUE = .CTXCS_QUEUEJ) NEQ 0 
SORSSDEALLOCATE(.CTXCCOM_LRL_INT], QUEVECO,QUE_REC)); 


oe ot oe ot at at tt tke ee ek ek ee 


APOPOPOPOTURO oT 
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' Deallocate storage to hold the queue. 
: One entry per run, and one for the queue header. 
SORSSDEALLOCATE 
( (1+TUN_K_MAX_MERGE) * QUE_K_SIZE * ZUPVAL, CTXCS_QUEUE]) ); 
| 
j 


o 


SOLER 


: Deallocate the replacement selection tree 
SORSSDEALLOCATE(.CTXCCOM_TREE_LENJ, CTXCCOM_TREE_ADR]); 
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0004 00000 CLEAN_UP: 


eWORD Save R2 ; 1450 
26 att * 00 9 0 Vv ORSSDEALLOCATE, R2 3 
4 08 poy atte, QUEUE : 1488 
AO 9F F PUSHAB 8 (QUEUE) + 1490 
4} ooss £8 He 1s MOVZWL ; ita -(SP) ; 
6 FB 0001 CALLS. @ SORSSDEALLOCATE : 
40 AB 3 1A 18 PUSHAB {¢ x) + 1497 
3 015 of C 1 V7WwL # -(SP) : 
4 2 FB CALLS #2, SORSSDEALLOCATE : 
oocs CB OOF PUSHAB é 6«CTx) + 1502 
C4 8 DD PUSHL 96(CTX) : 
62 FB D CALLS #2, SORSSDEALLOCATE ; 
04 00 ET ; 1505 
; Routine Size: 49 bytes, Routine Base: SORSRO_CODE + O4FA 
3 1446 1506 1 
3 144 1507 1 END 
3 1448 1508 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: a. ©, eee 2 4 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, Pis-M ents? 
; SORSRO_CODE 1323 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
cocecee= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


_$255$DUA28: (SYSLIBJSTARLET 43231 977 é 9 5 1 0:01.1 
“$255$DUA B: SvSt 18 XPORT.L32;1 59 2 2 :00.6 
“$255$DUA28: CSORT32.SRCJSORLIB.L32;1 409 14 0:00.4 


Kk 7 

SORSSORT 16-Sep-1984 00:38: AX-11 Bliss-32 V4.0-742 s 40 
9002006 13-808-1 382 90:38:25 SORT32.SRCJSORSORT.B32;1 age 10) vo 
$ COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:SORSORT/OBJ=OBJ$:SORSORT MSRC$:SORSORT/UPDATE=(ENH$: SORSORT) 

5 ze: 132 e + 5 data bytes 

un Time 0: 2: 
Elapsed i Tine: 


Line 2335" 

Lerenes/CPU-Rin: 36546 
Y Used: 220 P poses 

Compilation Complete 
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